home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / BBS-Archive / Comm / AmiTCP30b2.lha / src / appl / napsaterm / national.c < prev    next >
C/C++ Source or Header  |  1994-05-14  |  4KB  |  168 lines
  1. /* $Id: national.c,v 3.1 1994/01/07 22:51:34 ppessi Exp $
  2.  * 
  3.  * national.c --- handle national fonts and keyboard layouts
  4.  *
  5.  * Author: ppessi <Pekka.Pessi@hut.fi>
  6.  *
  7.  * Copyright (c) 1993 Pekka Pessi
  8.  *
  9.  * Created      : Mon Mar 29 06:32:31 1993 ppessi
  10.  * Last modified: Wed Jan  5 07:51:36 1994 ppessi
  11.  *
  12.  */
  13.  
  14. #include <stdlib.h>
  15. #include <string.h>
  16. #include <ctype.h>
  17.  
  18. #include "nifty.h"
  19. #include "napsaprefs.h"
  20. #include "amiga.h"
  21. #include "wimp.h"
  22.  
  23. #define MAX_NATIONS 31
  24.  
  25. struct nation {
  26.   const char *n_kmapname;    /* name of the kmap resource */
  27.   void *n_kmap;            /* pointer to the kmap resource */
  28.   const char *n_patches;    /* mapping between Latin1 and national code */
  29. };
  30.  
  31. unsigned char national_show[CHARSETSIZE];
  32. unsigned char national_send[CHARSETSIZE];
  33.  
  34. /*
  35.  * Note that US* has synonymes
  36.  */
  37. char nation_names[] =
  38.   "US ASCII" NUL "Danish" NUL "Finnish" NUL "French" NUL
  39.   "German" NUL "Norwegian" NUL "Swedish" NUL "UK ASCII" NUL;
  40.  
  41. static struct nation nations[MAX_NATIONS] = 
  42. { 
  43.   /* US-ASCII */
  44.   { "usa1", NULL, NULL },
  45.   /* Danish */
  46.   { "dk", NULL, 
  47.       /* Danish I [Æ]Å\Ø{æ}å|ø */  
  48.       "[\306]\305\\\330{\346}\345|\370" }, 
  49.   /* Finnish */
  50.   { "s", NULL, 
  51.       /* [Ä]Å\Ö{ä}å|ö */  
  52.       "[\304]\305\\\326{\344}\345|\366" }, 
  53.   /* French */
  54.   { "f", NULL, 
  55.       /* @à[°\ç]§{é|ù}è~¨ */  
  56.       "@\340[\227\\\337]\305{\351|\371}\350~\250" }, 
  57.   /* German */
  58.   { "d", NULL,
  59.       /* @§[Ä]Ü\Ö{ä}ü|ö~ß */
  60.       "@\247[\304]\334\\\326{\344}\374|\366~\337" },
  61.   /* Norwegian */
  62.   { "n", NULL, 
  63.       /* $¤@É[Æ]Å\Ø^Ü`é{æ}å|ø~ü */
  64.       "$\244@\311[\306]\305\\\330^\334`\351{\346}\345|\370~\374" },
  65.   /* Swedish */
  66.   { "s", NULL, 
  67.       /* $¤@É[Ä]Å\Ö^Ü`é{ä}å|ö~ü */
  68.       "$\244@\311[\304]\305\\\326^\334`\351{\344}\345|\366~\374" },
  69.   /* UK */
  70.   { "gb", NULL,
  71.       /* british #£*/ 
  72.       "#\243" },
  73. }; /* ASCII */
  74.  
  75. static struct nation *used_nation = NULL;
  76. static short used_nation_number;
  77. static short no_nation = 7;
  78.  
  79. static unsigned char kmap_template[] =
  80. "\000\001\002\003\004\005\006\007"
  81. "\010\011\012\013\014\015\016\017"
  82. "\020\021\022\023\024\025\026\027"
  83. "\030\031\032\033\034\035\036\037"
  84. " !c#$Y|#@ca\"--r-o+23'uP.,1o\"   ?"
  85. "AAAAAAACEEEEIIIIDNOOOOO*OUUUUYTs"
  86. "aaaaaaaceeeeiiiidnooooo/ouuuuyty";
  87.  
  88. /*
  89.  * initialize current mapping
  90.  */
  91. void setnation(unsigned int n)
  92. {
  93.   int i;
  94.   const unsigned char *patch;
  95.  
  96.   if (n >= no_nation)
  97.     return;
  98.  
  99.   if (used_nation == nations + n)
  100.     return;
  101.  
  102.   used_nation = nations + n;
  103.   used_nation_number = n;
  104.  
  105.   for (i = 0; i < CHARSETSIZE; i++) {
  106.     national_send[i] = national_show[i] = i;
  107.   }
  108.  
  109.   /* Set the keymap */
  110.   used_nation->n_kmap = 
  111.     setmap(used_nation->n_kmapname, used_nation->n_kmap);
  112.  
  113.   /* patch send & receive tables */
  114.   memcpy(national_send + 128, kmap_template, 128);
  115.   for (patch = used_nation->n_patches; patch && *patch; patch += 2) {
  116.     national_send[patch[1]] = patch[0];
  117.     national_show[patch[0]] = patch[1];
  118.   }
  119. }
  120.  
  121. /*
  122.  * Parse keymap resource
  123.  */
  124. int parsekeymap(char *s, void * dummy)
  125. {
  126.   char *mapname = PathPart(s);
  127.  
  128.   /* Are we only given the mapname? */ 
  129.   if (mapname == s) {
  130.     np.keymap = s;
  131.     return 1;
  132.   } else if (*mapname == '/') {
  133.     int i;
  134.     const char *t = nation_names;
  135.  
  136.     *mapname++ = '\0';    /* NUL terminate the map name */
  137.  
  138.     if (!Stricmp("ASCII", s)) {
  139.       nations[0].n_kmapname = mapname;
  140.       return 1;
  141.     }
  142.  
  143.     for (i = 0; *t; i++) {
  144.       if (!Strnicmp(t, s, 2)) {
  145.     /* Found nation */
  146.     nations[i].n_kmapname = mapname;
  147.     return 1;
  148.       }
  149.       while (*t++)
  150.     ;
  151.     }
  152.     /* Illegal nation, don't set keymap */
  153.     perrorparse("Illegal nation %s", s);
  154.   }
  155.   free(s);
  156.   return 0;
  157. }
  158.  
  159.  
  160. void initnations(void)
  161. {
  162.   setnation(np.nation);
  163. }
  164.  
  165. void deinitnations(void)
  166. {
  167. }
  168.